position camera 0,300,0
autocam off
make matrix 1,1000,1000,25,25
position matrix 1,0,0,0
set matrix height 1,10,10,200
update matrix 1
while inkey$()<>"x"
set cursor 0,0
print "press 1 to randomize matrix"
if scancode()=2 then randomize matrix 1,rnd(100)
print "press 6,7,8,9 to shift matrix"
if scancode()=7 then shift matrix up 1
if scancode()=8 then shift matrix down 1
if scancode()=9 then shift matrix left 1
if scancode()=10 then shift matrix right 1
x#=x#+mousemovey()
y#=y#+mousemovex()
rotate camera x#,y#,0
if mouseclick()=1 then move camera 1
if mouseclick()=2 then move camera -1
update matrix 1
endwhile
if matrix exist(1)=1 then delete matrix 1
end